(rmail-summary-by-labels): Correctly handle return value of

rmail-get-labels.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index f7bd2df41b2f98a7b7795460d604ea78594a0b14..79bb8bc2ef344b78587945c74e5dfb386b3aaae3 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -90,7 +90,9 @@ LABELS should be a string containing the desired labels, separated by commas."
   (rmail-new-summary (concat "labels " labels)
                     (list 'rmail-summary-by-labels labels)
                     'rmail-message-labels-p
-                    (concat ", \\(" (mail-comma-list-regexp labels) "\\),")))
+                    (concat " \\("
+                            (mail-comma-list-regexp labels)
+                            "\\)\\(,\\|\\'\\)")))
 
 ;;;###autoload
 (defun rmail-summary-by-recipients (recipients &optional primary-only)